www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/partylist.asp
<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
'=========================================================
' File: partylist.asp
' Version:3.0
' Date: 2005-8-29
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579 Msn：zdlmicr@hotmail.com
'=========================================================
dim action,psex,partuser
dim retypeid,cityname,Province
response.buffer=true
action=Trim(Request("action"))
psex=checkStr(trim(Request("psex")))
if action="" then
stats="所有约会"
elseif action="sesex" then
if psex=0 then
stats="向女士发出的约会邀请"
elseif psex=1 then
stats="向男士发出的约会邀请"
elseif psex=2 then
stats="向所有发出的约会邀请"
end if
elseif action="partme" then
stats="邀请我参加的约会"
elseif action="over" then
stats="已结束的约会"
elseif action="youpart" then
partuser=checkStr(trim(Request("partuser")))
stats=""&partuser&"会员所有约会"
elseif action="listtype" then
stats="该类所有约会"
retypeid=checkStr(trim(Request("typeid")))
retypeid=cint(retypeid)
elseif action="showcity" then
stats="该城市所有约会"
cityname=checkStr(trim(Request("cityname")))
elseif action="showpro" then
stats="该省所有约会"
Province=checkStr(trim(Request("Province")))
end if
call nav()
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>您还没有登陆，无查询权限。"
founderr=true
end if
if founderr then
call Mslove_error()
else
call tumppages()'翻页处理
strFileName="partylist.asp?"
call main()
if founderr then call Mslove_error()
end if
call activeonline()
call footer()
sub main()%>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=150 height="62" align=middle background="Skins/21cn/story_bg.gif"><img src="Skins/21cn/story.gif" width="189" height="50"></TD>
<TD background="Skins/21cn/story_bg.gif"> </TD>
</TR>
</TBODY>
</TABLE>
<TABLE height=42 cellSpacing=0 cellPadding=0 width=750 align=center border=0 class=tableborder1>
<TBODY>
<TR>
<TD width=15 align=left bgcolor="#eaf3d8"> <P> </P></TD>
<TD width=732 align=middle bgcolor="#eaf3d8" class=nav_css> 北京 | 上海 | 广州
| 深圳 | 武汉 | 杭州 | 成都 | 重庆 | 西安 | 天津 | 南京 | 沈阳 | 长沙 | 济南 | 港澳 | 台湾 | 更多省市<BR></TD>
<TD width=13 align=left bgcolor="#eaf3d8"> </TD>
</TR>
<TR vAlign=top>
<TD align=left colSpan=3 height=2><IMG height=2
src="Skins/Default/party/diqu_25.gif"
width=750></TD>
</TR>
</TBODY>
</TABLE>
<TABLE id=Table2 cellSpacing=0 cellPadding=0 width=750 align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top><FONT face=宋体>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD colSpan=3 height=3></TD>
</TR>
<TR>
<TD width=8><IMG height=8 src="skins/21cn/s-main-1.gif"
width=8></TD>
<TD background=skins/21cn/s-main-bg.gif height=8></TD>
<TD width=8><IMG height=8 src="skins/21cn/s-main-2.gif"
width=8></TD>
</TR>
<TR>
<TD background=skins/21cn/s-main-4bg.gif> </TD>
<TD vAlign=top bgColor=#ffffff><TABLE cellSpacing=4 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD align=middle width=15 height=26><IMG height=17
src="skins/21cn/icon-m3.gif" width=5></TD>
<TD> <TABLE height=30 border=0>
<TBODY>
<TR>
<TD><STRONG> </STRONG></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align=middle background=skins/21cn/hr-line.gif colSpan=2
height=3></TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" align=center cellpadding=3 cellspacing=0>
<tr>
<td width="35%" height="31" align="center" class=tablebody2><strong>约会名称</strong></td>
<td width="9%" align="center" class=tablebody2><strong>城市</strong></td>
<td width="11%" align="center" class=tablebody2><strong>昵称</strong></td>
<td width="10%" align="center" class=tablebody2><strong>约会日期</strong></td>
<td width="7%" align="center" class=tablebody2><strong>性 质</strong></td>
<td width="13%" align="center" class=tablebody2><strong>要 求</strong></td>
<td width="9%" align="center" class=tablebody2><strong>约会/响应</strong></td>
<td width="6%" align="center" class=tablebody2><strong>人气</strong></td>
</tr>
<%dim Pid,City,Minage,Maxage,Typeid,parsex
set rs=server.createobject("adodb.recordset")
if action="" then
sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Checked=1 order by addtime desc"
elseif action="sesex" and psex<>"" then
sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Checked=1 and Parsex="&psex&" order by addtime desc"
elseif action="partme" then
sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Partname='"&trim(membername)&"' order by addtime desc"
elseif action="over" then
sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Checked=2 or Checked=3 order by addtime desc"
elseif action="youpart" then
sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where username='"&partuser&"' order by addtime desc"
elseif action="listtype" then
sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Typeid="&retypeid&" order by addtime desc"
elseif action="showcity" then
sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where City='"&cityname&"' order by addtime desc"
elseif action="showpro" then
sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Province='"&Province&"' order by addtime desc"
end if
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
Pid=rs("Pid")
City=rs("City")
Typeid=rs("Typeid")
parsex=rs("Parsex")%>
<tr>
<td height="28" class=tablebody1><a href=partyshow.asp?Pid=<%=pid%> title=浏览约会内容><%=rs("Title")%></a> <%if datediff("d",rs("Addtime"),date())<=1 then
response.write(" <img src=images/new.gif>")
end if%> </td>
<td align="center" class=tablebody1><%=city%></td>
<td align="center" class=tablebody1><a href=dispuser.asp?username=<%=rs("username")%>><%=rs("username")%></a></td>
<td align="center" class=tablebody1><%=datevalue(rs("PartyDate"))%></td>
<td align="center" class=tablebody1> <%if Typeid=1 then
response.write("征友")
elseif Typeid=2 then
response.write("恋人")
elseif Typeid=3 then
response.write("节日")
elseif Typeid=4 then
response.write("纪念")
elseif Typeid=5 then
response.write("旅游")
else
response.write("其它")
end if%> </td>
<td align="center" class=tablebody1> <%if parsex=2 then
response.Write("无要求")
elseif parsex=1 then
response.Write("男")
else
response.Write("女")
end if%>
(<%=rs("Minage")%>-<%=rs("Maxage")%>)</td>
<td align="center" class=tablebody1><%=rs("Maxnum")%> / <font color=red><%=rs("Userjoin")%></font></td>
<td align="center" class=tablebody1> <%if rs("hits")>=Clicknums then
response.write("<font color=red>"&rs("hits")&"</font>")
else
response.write(""&rs("hits")&"")
end if%> </td>
</tr>
<%page_count=page_count+1
rs.movenext
loop
end if
rs.close
%>
<tr>
<td height="28" colspan="8" align="center" class=tablebody1>
<%if totalrec>0 then
call showpage(strFileName)
end if%> </td>
</tr>
<tr>
<td colspan="8" align="left" class=tablebody1> </td>
</tr>
</table> </TD>
<TD background=skins/21cn/s-main-2bg.gif></TD>
</TR>
<TR>
<TD><IMG height=8 src="skins/21cn/s-main-4.gif" width=8></TD>
<TD background=skins/21cn/s-main-3bg.gif height=8></TD>
<TD><IMG height=8 src="skins/21cn/s-main-3.gif"
width=8></TD>
</TR>
</TBODY>
</TABLE>
</FONT></TD>
</TR>
</TBODY>
</TABLE>
<%rs.close
end sub
%>
</body>
</html>